home *** CD-ROM | disk | FTP | other *** search
/ Ice Princess Press Kit / Ice Princess Press Kit.iso / pc / program.dxr / Internal_23_Save & Write Full.ls < prev    next >
Encoding:
Text File  |  2005-03-02  |  24.5 KB  |  443 lines
  1. global gPhotolist, gSvFile, gLF, dLM, gMegs
  2.  
  3. on enterFrame me
  4.   if gPhotolist = [] then
  5.     nothing()
  6.   else
  7.     Fdr = xtra("Filextra4").new()
  8.     Fdr.fx_FolderExists(gSvFile)
  9.     Fdr.fx_FolderCreate(gSvFile)
  10.     freeRoom = baDiskInfo(gSvFile, "Free")
  11.     freemegs = freeRoom / 1024
  12.     if freemegs < gMegs then
  13.       baDeleteFolder(gSvFile)
  14.       go("Stop Here")
  15.     else
  16.       nothing()
  17.     end if
  18.   end if
  19. end
  20.  
  21. on handlerlist
  22.   sort(gPhotolist)
  23.   image01 = "IPC-C119-04R2C"
  24.   image02 = "IPC-C070-15R"
  25.   image03 = "IPC-C303-15A"
  26.   image04 = "IPC-C308-14"
  27.   image05 = "IPC-C384-33"
  28.   image06 = "IPC-C011-22A"
  29.   image07 = "IPC-C368-35A"
  30.   image08 = "IPC-C001-34A"
  31.   image09 = "IPC-C344-31"
  32.   image10 = "IPC-C339-08"
  33.   image11 = "IPC-C357-07"
  34.   image12 = "IPC-C327-34A"
  35.   image13 = "IPC-C099-27"
  36.   image14 = "IPC-C033-10"
  37.   image15 = "IPC-KW-DF-425"
  38.   image16 = "IPC-C024-32"
  39.   image17 = "IPC-C023-28A"
  40.   image18 = "IPC-C198-25A"
  41.   image19 = "IPC-C200-35"
  42.   image20 = "IPC-C253-30R"
  43.   image21 = "IPC-C161-16A"
  44.   image22 = "IPC-C047-27"
  45.   image23 = "IPC-C245-05A"
  46.   image24 = "IPC-C253-08"
  47.   image25 = "IPC-C123-17"
  48.   image26 = "IPC-C068-26A"
  49.   image27 = "IPC-C364-31"
  50.   image28 = "IPC-C296-18A"
  51.   image29 = "IPC-C360-22"
  52.   image30 = "IPC-C202-31A"
  53.   image31 = "IPC-C239-10"
  54.   image32 = "IPC-C243-15A"
  55.   image33 = "IPC-C230-26"
  56.   image34 = "IPC-C383-25"
  57.   image35 = "IPC-C139-22A"
  58.   image36 = "IPC-C216-12A"
  59.   image37 = "IPC-C284-33A"
  60.   image38 = "IPC-C243-36AR"
  61.   image39 = "IPC-C325-07"
  62.   image40 = "IPC-C027-06R"
  63.   image41 = "IPC-C230-35"
  64.   image42 = "IPC-C237-16"
  65.   notes1 = "IP-Notes"
  66.   Title01 = "IP-TitleArt"
  67.   Title02 = "IP-OneSheet"
  68.   repeat with i = 1 to gPhotolist.count
  69.     Downloads = getAt(gPhotolist, i)
  70.     xyz = the moviePath
  71.     origFile = xyz & "Images" & dLM
  72.     case Downloads of
  73.       "C01":
  74.         go("DL1")
  75.         Ok = baCopyFileProgress(origFile & image01 & ".jpg", gSvFile & image01 & ".jpg", "always", "Saving...", "Cancel", 32)
  76.       "C02":
  77.         go("DL2")
  78.         Ok = baCopyFileProgress(origFile & image02 & ".jpg", gSvFile & image02 & ".jpg", "always", "Saving...", "Cancel", 32)
  79.       "C03":
  80.         go("DL3")
  81.         Ok = baCopyFileProgress(origFile & image03 & ".jpg", gSvFile & image03 & ".jpg", "always", "Saving...", "Cancel", 32)
  82.       "C04":
  83.         go("DL4")
  84.         Ok = baCopyFileProgress(origFile & image04 & ".jpg", gSvFile & image04 & ".jpg", "always", "Saving...", "Cancel", 32)
  85.       "C05":
  86.         go("DL5")
  87.         Ok = baCopyFileProgress(origFile & image05 & ".jpg", gSvFile & image05 & ".jpg", "always", "Saving...", "Cancel", 32)
  88.       "C06":
  89.         go("DL6")
  90.         Ok = baCopyFileProgress(origFile & image06 & ".jpg", gSvFile & image06 & ".jpg", "always", "Saving...", "Cancel", 32)
  91.       "C07":
  92.         go("DL7")
  93.         Ok = baCopyFileProgress(origFile & image07 & ".jpg", gSvFile & image07 & ".jpg", "always", "Saving...", "Cancel", 32)
  94.       "C08":
  95.         go("DL8")
  96.         Ok = baCopyFileProgress(origFile & image08 & ".jpg", gSvFile & image08 & ".jpg", "always", "Saving...", "Cancel", 32)
  97.       "C09":
  98.         go("DL9")
  99.         Ok = baCopyFileProgress(origFile & image09 & ".jpg", gSvFile & image09 & ".jpg", "always", "Saving...", "Cancel", 32)
  100.       "C10":
  101.         go("DL10")
  102.         Ok = baCopyFileProgress(origFile & image10 & ".jpg", gSvFile & image10 & ".jpg", "always", "Saving...", "Cancel", 32)
  103.       "C11":
  104.         go("DL11")
  105.         Ok = baCopyFileProgress(origFile & image11 & ".jpg", gSvFile & image11 & ".jpg", "always", "Saving...", "Cancel", 32)
  106.       "C12":
  107.         go("DL12")
  108.         Ok = baCopyFileProgress(origFile & image12 & ".jpg", gSvFile & image12 & ".jpg", "always", "Saving...", "Cancel", 32)
  109.       "C13":
  110.         go("DL13")
  111.         Ok = baCopyFileProgress(origFile & image13 & ".jpg", gSvFile & image13 & ".jpg", "always", "Saving...", "Cancel", 32)
  112.       "C14":
  113.         go("DL14")
  114.         Ok = baCopyFileProgress(origFile & image14 & ".jpg", gSvFile & image14 & ".jpg", "always", "Saving...", "Cancel", 32)
  115.       "C15":
  116.         go("DL15")
  117.         Ok = baCopyFileProgress(origFile & image15 & ".jpg", gSvFile & image15 & ".jpg", "always", "Saving...", "Cancel", 32)
  118.       "C16":
  119.         go("DL16")
  120.         Ok = baCopyFileProgress(origFile & image16 & ".jpg", gSvFile & image16 & ".jpg", "always", "Saving...", "Cancel", 32)
  121.       "C17":
  122.         go("DL17")
  123.         Ok = baCopyFileProgress(origFile & image17 & ".jpg", gSvFile & image17 & ".jpg", "always", "Saving...", "Cancel", 32)
  124.       "C18":
  125.         go("DL18")
  126.         Ok = baCopyFileProgress(origFile & image18 & ".jpg", gSvFile & image18 & ".jpg", "always", "Saving...", "Cancel", 32)
  127.       "C19":
  128.         go("DL19")
  129.         Ok = baCopyFileProgress(origFile & image19 & ".jpg", gSvFile & image19 & ".jpg", "always", "Saving...", "Cancel", 32)
  130.       "C20":
  131.         go("DL20")
  132.         Ok = baCopyFileProgress(origFile & image20 & ".jpg", gSvFile & image20 & ".jpg", "always", "Saving...", "Cancel", 32)
  133.       "C21":
  134.         go("DL21")
  135.         Ok = baCopyFileProgress(origFile & image21 & ".jpg", gSvFile & image21 & ".jpg", "always", "Saving...", "Cancel", 32)
  136.       "C22":
  137.         go("DL22")
  138.         Ok = baCopyFileProgress(origFile & image22 & ".jpg", gSvFile & image22 & ".jpg", "always", "Saving...", "Cancel", 32)
  139.       "C23":
  140.         go("DL23")
  141.         Ok = baCopyFileProgress(origFile & image23 & ".jpg", gSvFile & image23 & ".jpg", "always", "Saving...", "Cancel", 32)
  142.       "C24":
  143.         go("DL24")
  144.         Ok = baCopyFileProgress(origFile & image24 & ".jpg", gSvFile & image24 & ".jpg", "always", "Saving...", "Cancel", 32)
  145.       "C25":
  146.         go("DL25")
  147.         Ok = baCopyFileProgress(origFile & image25 & ".jpg", gSvFile & image25 & ".jpg", "always", "Saving...", "Cancel", 32)
  148.       "C26":
  149.         go("DL26")
  150.         Ok = baCopyFileProgress(origFile & image26 & ".jpg", gSvFile & image26 & ".jpg", "always", "Saving...", "Cancel", 32)
  151.       "C27":
  152.         go("DL27")
  153.         Ok = baCopyFileProgress(origFile & image27 & ".jpg", gSvFile & image27 & ".jpg", "always", "Saving...", "Cancel", 32)
  154.       "C28":
  155.         go("DL28")
  156.         Ok = baCopyFileProgress(origFile & image28 & ".jpg", gSvFile & image28 & ".jpg", "always", "Saving...", "Cancel", 32)
  157.       "C29":
  158.         go("DL29")
  159.         Ok = baCopyFileProgress(origFile & image29 & ".jpg", gSvFile & image29 & ".jpg", "always", "Saving...", "Cancel", 32)
  160.       "C30":
  161.         go("DL30")
  162.         Ok = baCopyFileProgress(origFile & image30 & ".jpg", gSvFile & image30 & ".jpg", "always", "Saving...", "Cancel", 32)
  163.       "C31":
  164.         go("DL31")
  165.         Ok = baCopyFileProgress(origFile & image31 & ".jpg", gSvFile & image31 & ".jpg", "always", "Saving...", "Cancel", 32)
  166.       "C32":
  167.         go("DL32")
  168.         Ok = baCopyFileProgress(origFile & image32 & ".jpg", gSvFile & image32 & ".jpg", "always", "Saving...", "Cancel", 32)
  169.       "C33":
  170.         go("DL33")
  171.         Ok = baCopyFileProgress(origFile & image33 & ".jpg", gSvFile & image33 & ".jpg", "always", "Saving...", "Cancel", 32)
  172.       "C34":
  173.         go("DL34")
  174.         Ok = baCopyFileProgress(origFile & image34 & ".jpg", gSvFile & image34 & ".jpg", "always", "Saving...", "Cancel", 32)
  175.       "C35":
  176.         go("DL35")
  177.         Ok = baCopyFileProgress(origFile & image35 & ".jpg", gSvFile & image35 & ".jpg", "always", "Saving...", "Cancel", 32)
  178.       "C36":
  179.         go("DL36")
  180.         Ok = baCopyFileProgress(origFile & image36 & ".jpg", gSvFile & image36 & ".jpg", "always", "Saving...", "Cancel", 32)
  181.       "C37":
  182.         go("DL37")
  183.         Ok = baCopyFileProgress(origFile & image37 & ".jpg", gSvFile & image37 & ".jpg", "always", "Saving...", "Cancel", 32)
  184.       "C38":
  185.         go("DL38")
  186.         Ok = baCopyFileProgress(origFile & image38 & ".jpg", gSvFile & image38 & ".jpg", "always", "Saving...", "Cancel", 32)
  187.       "C39":
  188.         go("DL39")
  189.         Ok = baCopyFileProgress(origFile & image39 & ".jpg", gSvFile & image39 & ".jpg", "always", "Saving...", "Cancel", 32)
  190.       "C40":
  191.         go("DL40")
  192.         Ok = baCopyFileProgress(origFile & image40 & ".jpg", gSvFile & image40 & ".jpg", "always", "Saving...", "Cancel", 32)
  193.       "C41":
  194.         go("DL41")
  195.         Ok = baCopyFileProgress(origFile & image41 & ".jpg", gSvFile & image41 & ".jpg", "always", "Saving...", "Cancel", 32)
  196.       "C42":
  197.         go("DL42")
  198.         Ok = baCopyFileProgress(origFile & image42 & ".jpg", gSvFile & image42 & ".jpg", "always", "Saving...", "Cancel", 32)
  199.       "TT01":
  200.         go("DLT01")
  201.         Ok = baCopyFileProgress(origFile & Title01 & ".psd", gSvFile & Title01 & ".psd", "always", "Saving...", "Cancel", 32)
  202.       "TT02":
  203.         go("DLT02")
  204.         Ok = baCopyFileProgress(origFile & Title02 & ".tif", gSvFile & Title02 & ".tif", "always", "Saving...", "Cancel", 32)
  205.       "vNotes":
  206.         Ok = baCopyFileProgress(xyz & "Notes" & dLM & notes1 & ".PDF", gSvFile & notes1 & ".PDF", "always", "Saving...", "Cancel", 32)
  207.     end case
  208.   end repeat
  209.   CopyrightText1 = EMPTY
  210.   CopyrightText2 = QUOTE & "¬©Disney Enterprises, Inc, All Rights Reserved " & QUOTE
  211.   CopyrightText4 = EMPTY
  212.   put the long date into member "Caption Text"
  213.   put gLF after member "Caption Text"
  214.   put the time after member "Caption Text"
  215.   put gLF & "Location of the saved files is " & gSvFile after member "Caption Text"
  216.   put gLF & gLF & gLF after member "Caption Text"
  217.   put "********************" after member "Caption Text"
  218.   put gLF after member "Caption Text"
  219.   put "NOTE: Fully formatted Photo IDs in MS Word format are available on the" && QUOTE & "Ice Princess" & QUOTE && "CD in the 'Notes' Folder." after member "Caption Text"
  220.   put gLF after member "Caption Text"
  221.   put "********************" after member "Caption Text"
  222.   put gLF & gLF & gLF after member "Caption Text"
  223.   put "You have saved the following files to your hard drive:" after member "Caption Text"
  224.   put gLF after member "Caption Text"
  225.   put gLF after member "Caption Text"
  226.   if baFileExists(gSvFile & image01 & ".jpg") then
  227.     put image01 & "                              Photo Credit: Rafy " & gLF after member "Caption Text"
  228.     put "L-R:  Tina (Kim Cattrall), Casey (Michelle Trachtenberg) ." & CopyrightText1 & gLF after member "Caption Text"
  229.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  230.   end if
  231.   if baFileExists(gSvFile & image02 & ".jpg") then
  232.     put image02 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  233.     put "L-R:  Tina (Kim Cattrall), Casey (Michelle Trachtenberg), Nikki's Mom (Connie Ray, in b.g.)." & CopyrightText1 & gLF after member "Caption Text"
  234.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  235.   end if
  236.   if baFileExists(gSvFile & image03 & ".jpg") then
  237.     put image03 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  238.     put "L-R:  Casey (Michelle Trachtenberg), Tina (Kim Cattrall)." & CopyrightText1 & gLF after member "Caption Text"
  239.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  240.   end if
  241.   if baFileExists(gSvFile & image04 & ".jpg") then
  242.     put image04 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  243.     put "L-R:  Tina (Kim Cattrall), Casey (Michelle Trachtenberg) " & CopyrightText1 & gLF after member "Caption Text"
  244.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  245.   end if
  246.   if baFileExists(gSvFile & image05 & ".jpg") then
  247.     put image05 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  248.     put "L-R:  Casey (Michelle Trachtenberg), Teddy (Trevor Blumas). " & CopyrightText1 & gLF after member "Caption Text"
  249.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  250.   end if
  251.   if baFileExists(gSvFile & image06 & ".jpg") then
  252.     put image06 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  253.     put "L-R:  Casey (Michelle Trachtenberg), Teddy (Trevor Blumas)." & gLF & CopyrightText1 & gLF after member "Caption Text"
  254.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  255.   end if
  256.   if baFileExists(gSvFile & image07 & ".jpg") then
  257.     put image07 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  258.     put "L-R:  Joan (Joan Cusack), Casey (Michelle Trachtenberg). " & CopyrightText1 & gLF after member "Caption Text"
  259.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  260.   end if
  261.   if baFileExists(gSvFile & image08 & ".jpg") then
  262.     put image08 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  263.     put "L-R:  Joan (Joan Cusack), Casey (Michelle Trachtenberg). " & CopyrightText1 & gLF after member "Caption Text"
  264.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  265.   end if
  266.   if baFileExists(gSvFile & image09 & ".jpg") then
  267.     put image09 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  268.     put "L-R:  Gen (Hayden Panettiere), Casey (Michelle Trachtenberg). " & CopyrightText1 & gLF after member "Caption Text"
  269.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  270.   end if
  271.   if baFileExists(gSvFile & image10 & ".jpg") then
  272.     put image10 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  273.     put "L-R:  Casey (Michelle Trachtenberg), Gen (Hayden Panettiere). " & CopyrightText1 & gLF after member "Caption Text"
  274.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  275.   end if
  276.   if baFileExists(gSvFile & image11 & ".jpg") then
  277.     put image11 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  278.     put "L-R:  Ann (Amy Stewart), Casey (Michelle Trachtenberg) " & CopyrightText1 & gLF after member "Caption Text"
  279.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  280.   end if
  281.   if baFileExists(gSvFile & image12 & ".jpg") then
  282.     put image12 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  283.     put "L-R:  Teddy (Trevor Blumas), Gen (Hayden Panettiere), Tina (Kim Cattrall). " & CopyrightText1 & gLF after member "Caption Text"
  284.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  285.   end if
  286.   if baFileExists(gSvFile & image13 & ".jpg") then
  287.     put image13 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  288.     put "L-R:  Nikki (Kirsten Olson), Tiffany (Jocelyn Lai), Gen (Hayden Panettiere). " & CopyrightText1 & gLF after member "Caption Text"
  289.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  290.   end if
  291.   if baFileExists(gSvFile & image14 & ".jpg") then
  292.     put image14 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  293.     put "L-R:  Teddy (Trevor Blumas), Casey (Michelle Trachtenberg)." & CopyrightText1 & gLF after member "Caption Text"
  294.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  295.   end if
  296.   if baFileExists(gSvFile & image15 & ".jpg") then
  297.     put image15 & "                                  Photo Credit: Ken Woroner " & gLF after member "Caption Text"
  298.     put "L-R:  Casey (Michelle Trachtenberg), Nikki (Kirsten Olson)." & CopyrightText1 & gLF after member "Caption Text"
  299.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  300.   end if
  301.   if baFileExists(gSvFile & image16 & ".jpg") then
  302.     put image16 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  303.     put "Pictured:  Casey (Michelle Trachtenberg). " & CopyrightText1 & gLF after member "Caption Text"
  304.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  305.   end if
  306.   if baFileExists(gSvFile & image17 & ".jpg") then
  307.     put image17 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  308.     put "Pictured:  Casey (Michelle Trachtenberg). " & CopyrightText1 & gLF after member "Caption Text"
  309.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  310.   end if
  311.   if baFileExists(gSvFile & image18 & ".jpg") then
  312.     put image18 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  313.     put "Pictured:  Casey (Michelle Trachtenberg). " & CopyrightText1 & gLF after member "Caption Text"
  314.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  315.   end if
  316.   if baFileExists(gSvFile & image19 & ".jpg") then
  317.     put image19 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  318.     put "Pictured:  Casey (Michelle Trachtenberg) " & CopyrightText1 & gLF after member "Caption Text"
  319.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  320.   end if
  321.   if baFileExists(gSvFile & image20 & ".jpg") then
  322.     put image20 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  323.     put "Pictured:  Casey (Michelle Trachtenberg)." & CopyrightText1 & gLF after member "Caption Text"
  324.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  325.   end if
  326.   if baFileExists(gSvFile & image21 & ".jpg") then
  327.     put image21 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  328.     put "Pictured:  Gen (Hayden Panettiere). " & CopyrightText1 & gLF after member "Caption Text"
  329.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  330.   end if
  331.   if baFileExists(gSvFile & image22 & ".jpg") then
  332.     put image22 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  333.     put "Pictured:  Nikki (Kirsten Olson), Nikki's Coach (Mark Hird), Nikki's Mom (Connie Ray), Tiffany (Jocelyn Lai), Tiffany's Coach (Roy Bradshaw), Tiffany's Dad (Paul Sun-Hyung Lee)." & CopyrightText1 & gLF after member "Caption Text"
  334.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  335.   end if
  336.   if baFileExists(gSvFile & image23 & ".jpg") then
  337.     put image23 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  338.     put "L-R:  Brian Boitano, Michelle Kwan. " & CopyrightText1 & gLF after member "Caption Text"
  339.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  340.   end if
  341.   if baFileExists(gSvFile & image24 & ".jpg") then
  342.     put image24 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  343.     put "Pictured:  Casey (Michelle Trachtenberg). " & CopyrightText1 & gLF after member "Caption Text"
  344.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  345.   end if
  346.   if baFileExists(gSvFile & image25 & ".jpg") then
  347.     put image25 & "                                 Photo Credit: Rafy  " & gLF after member "Caption Text"
  348.     put "Pictured:  Casey (Michelle Trachtenberg). ." & CopyrightText1 & gLF after member "Caption Text"
  349.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  350.   end if
  351.   if baFileExists(gSvFile & image26 & ".jpg") then
  352.     put image26 & "                                 Photo Credit: Rafy  " & gLF after member "Caption Text"
  353.     put "Pictured:  Tina (Kim Cattrall)." & CopyrightText1 & gLF after member "Caption Text"
  354.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  355.   end if
  356.   if baFileExists(gSvFile & image27 & ".jpg") then
  357.     put image27 & "                                Photo Credit: Rafy  " & gLF after member "Caption Text"
  358.     put "Pictured:  Tina (Kim Cattrall)." & CopyrightText1 & gLF after member "Caption Text"
  359.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  360.   end if
  361.   if baFileExists(gSvFile & image28 & ".jpg") then
  362.     put image28 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  363.     put "Pictured:  Joan (Joan Cusack) ." & CopyrightText1 & gLF after member "Caption Text"
  364.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  365.   end if
  366.   if baFileExists(gSvFile & image29 & ".jpg") then
  367.     put image29 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  368.     put "Pictured:  Gen (Hayden Panettiere)." & CopyrightText1 & gLF after member "Caption Text"
  369.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  370.   end if
  371.   if baFileExists(gSvFile & image30 & ".jpg") then
  372.     put image30 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  373.     put "Pictured:  Teddy (Trevor Blumas) " & CopyrightText1 & gLF after member "Caption Text"
  374.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  375.   end if
  376.   if baFileExists(gSvFile & image31 & ".jpg") then
  377.     put image31 & "                                Photo Credit: Rafy " & gLF after member "Caption Text"
  378.     put "Pictured:  Michelle Kwan. " & CopyrightText1 & gLF after member "Caption Text"
  379.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  380.   end if
  381.   if baFileExists(gSvFile & image32 & ".jpg") then
  382.     put image32 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  383.     put "Pictured:  Brian Boitano." & CopyrightText1 & gLF after member "Caption Text"
  384.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  385.   end if
  386.   if baFileExists(gSvFile & image33 & ".jpg") then
  387.     put image33 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  388.     put "Pictured:  Nikki (Kirsten Olson)." & CopyrightText1 & gLF after member "Caption Text"
  389.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  390.   end if
  391.   if baFileExists(gSvFile & image34 & ".jpg") then
  392.     put image34 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  393.     put "Pictured:  Ann (Amy Stewart) " & CopyrightText1 & gLF after member "Caption Text"
  394.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  395.   end if
  396.   if baFileExists(gSvFile & image35 & ".jpg") then
  397.     put image35 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  398.     put "Behind-the-scenes  L-R:  Trevor Blumas (b.g.), Director Tim Fywell, Joan Cusack ." & CopyrightText1 & gLF after member "Caption Text"
  399.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  400.   end if
  401.   if baFileExists(gSvFile & image36 & ".jpg") then
  402.     put image36 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  403.     put "Behind-the-scenes  L-R:  Michelle Trachtenberg, Director Tim Fywell." & CopyrightText1 & gLF after member "Caption Text"
  404.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  405.   end if
  406.   if baFileExists(gSvFile & image37 & ".jpg") then
  407.     put image37 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  408.     put "Behind-the-scenes  L-R:  Michelle Trachtenberg, Director Tim Fywell." & CopyrightText1 & gLF after member "Caption Text"
  409.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  410.   end if
  411.   if baFileExists(gSvFile & image38 & ".jpg") then
  412.     put image38 & "                                 Photo Credit: Rafy  " & gLF after member "Caption Text"
  413.     put "In this behind-the-scenes moment, Michelle Trachtenberg (left) and Michelle Kwan (right) have some fun on the ice." & CopyrightText1 & gLF after member "Caption Text"
  414.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  415.   end if
  416.   if baFileExists(gSvFile & image39 & ".jpg") then
  417.     put image39 & "                                Photo Credit: Rafy " & gLF after member "Caption Text"
  418.     put "Behind-the-scenes   L-R:  Director Tim Fywell, Kim Cattrall." & CopyrightText1 & gLF after member "Caption Text"
  419.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  420.   end if
  421.   if baFileExists(gSvFile & image40 & ".jpg") then
  422.     put image40 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  423.     put "Behind-the-scenes  Pictured:  Director Tim Fywell." & CopyrightText1 & gLF after member "Caption Text"
  424.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  425.   end if
  426.   if baFileExists(gSvFile & image41 & ".jpg") then
  427.     put image41 & "                                  Photo Credit: Rafy " & gLF after member "Caption Text"
  428.     put "Behind-the-scenes  Pictured:  Executive producer William W. Wilson III. " & CopyrightText1 & gLF after member "Caption Text"
  429.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  430.   end if
  431.   if baFileExists(gSvFile & image42 & ".jpg") then
  432.     put image42 & "                                 Photo Credit: Rafy " & gLF after member "Caption Text"
  433.     put "Behind-the-scenes  L-R:  Director Tim Fywell, Producer Bridget Johnson." & CopyrightText1 & gLF after member "Caption Text"
  434.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  435.   end if
  436. end
  437.  
  438. on exitFrame
  439.   handlerlist()
  440.   dsk = 0
  441.   go("WriteCap")
  442. end
  443.